home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / s / speedupv3.00.dms / speedupv3.00.adf / SPEEDUP-CD&HD Install < prev    next >
Text File  |  1995-02-28  |  22KB  |  710 lines
  1. ; $VER: SpeedUP Installation CD&HD V3.00 (09.11.1994)
  2. ; Skript zum Installieren des SpeedUP-Systems
  3.  
  4. ;----------------------------------------------------------------------------
  5. ; Deutsche Texte
  6.  
  7. (if (= @language "deutsch")
  8. (
  9.   (set default_lang 2)
  10.  
  11.   (set #Ja   (cat "JA"   ))
  12.   (set #Nein (cat "NEIN" ))
  13.  
  14.   (set #Automatisch   (cat "Automatisch" ))
  15.   (set #Manuell       (cat "Manuell"     ))
  16.  
  17.   (set #Einleitung
  18.   (cat "\n\nHiermit können Sie das Speedup-System installieren. "
  19.   ))
  20.  
  21.   (set #SpeedupSystemInstallieren
  22.   (cat "Soll das Speedup-System installiert werden ? "
  23.   ))
  24.  
  25.   (set #SpeedupSystemInstallierenHelp
  26.   (cat "Hiermit können Sie das Speedup-System in Ihr bestehendes System "
  27.        "einbinden. Das ist notwendig, um auf alle Geräte (CD-Rom) am "
  28.        "MultiDrive-Adapter zugreifen zu können. \n\n"
  29.        " Achtung: Sollte der MultiDrive-Adapter nicht\n"
  30.        "          installiert sein, so läuft das Speedup-\n"
  31.        "          System nur als Demonstration und beendet\n"
  32.        "          die Arbeit nach ca. 5 - 10 Minuten.\n\n"
  33.        "Soll das Speedup-System nicht installiert werden, so können Sie "
  34.        "diesen Punkt mit >NEIN< überspringen. "
  35.   ))
  36.  
  37.   (set #SpeedupVersion
  38.   (cat "Welchen Speedup-Treiber möchten Sie installieren ?"
  39.   ))
  40.  
  41.   (set #SpeedupVersionHelp
  42.   (cat "Die Unterscheidung zwischen der Treiberversionen ist "
  43.        "wichtig, da sich das Mitsumi-Interface geringfügig unterscheidet."
  44.   ))
  45.  
  46.   (set #SpeedupVersion1 (cat "Mitsumi"))
  47.   (set #SpeedupVersion2 (cat "Universal"))
  48.  
  49.   (set #FilesystemInstallieren
  50.   (cat "Möchten Sie das, dem Speedup-System beigefügte, Filesystem verwenden ?"
  51.   ))
  52.  
  53.   (set #FilesystemInstallierenHelp
  54.   (cat "Wenn Sie das CD-Rom Laufwerk mit dem beigefügten Filesystem ansprechen "
  55.        "wollen, so wählen Sie hier bitte >JA< aus. Wollen Sie das CD-Rom "
  56.        "Laufwerk unter einem anderen Filesystem (z.B. Xetec CDx) ansprechen, "
  57.        "so wählen Sie hier >NEIN< aus."
  58.   ))
  59.  
  60.   (set #WhichUnits
  61.   (cat "An welchen Units sind CD-Rom Laufwerke angeschlossen ?"
  62.   ))
  63.  
  64.   (set #WhichUnitsHelp
  65.   (cat "Hier müssen Sie die Unitnummern auswählen, an denen ein CD-Rom Laufwerk "
  66.        "angeschlossen ist. Das Speedup-System verteilt die Unitnummern nach "
  67.        "folgendem Schlüssel : \n\n\n"
  68.        "Master am 1 AT/IDE - Connector  := Unit 0 \n"
  69.        "Slave am 1 AT/IDE - Connector   := Unit 1 \n"
  70.        "Master am 2 AT/IDE - Connector  := Unit 2 \n"
  71.        "Slave am 2 AT/IDE - Connector   := Unit 3 \n"
  72.        "\nSollte eine Unit nicht besetzt sein, so wird sie übersprungen !"
  73.   ))
  74.  
  75.   (set #Unit0 (cat "Unit 0"))
  76.   (set #Unit1 (cat "Unit 1"))
  77.   (set #Unit2 (cat "Unit 2"))
  78.   (set #Unit3 (cat "Unit 3"))
  79.  
  80.   (set #ErfrageVolumeName0
  81.   (cat "Unter welchen Namen soll das CD-ROM Laufwerk an der Unit 0 angemeldet werden ?"
  82.   ))
  83.   (set #ErfrageVolumeName1
  84.   (cat "Unter welchen Namen soll das CD-ROM Laufwerk an der Unit 1 angemeldet werden ?"
  85.   ))
  86.   (set #ErfrageVolumeName2
  87.   (cat "Unter welchen Namen soll das CD-ROM Laufwerk an der Unit 2 angemeldet werden ?"
  88.   ))
  89.   (set #ErfrageVolumeName3
  90.   (cat "Unter welchen Namen soll das CD-ROM Laufwerk an der Unit 3 angemeldet werden ?"
  91.   ))
  92.  
  93.   (set #ErfrageVolumeNameHelp
  94.   (cat "Das AmigaDOS verwaltet Laufwerke unter bestimmten Namen, wie z.b. "
  95.        " \"DF0:\", \"DF1:\", \"DH0:\" usw. Dieser Name kann hier für das CD-ROM "
  96.        "Laufwerk gewählt werden. Dabei dürfen in dem Namen keine Zeichen "
  97.        "\":\" und \"/\" autreten. Der Name sollte immer mit >CD< anfangen, "
  98.        "damit keine Probleme bei einer neuen Installation auftreten. "
  99.   ))
  100.  
  101.   (set #WannCDRomMounten
  102.   (cat "Soll das CD-Rom Laufwerk automatisch oder später manuell gemountet werden ?"
  103.   ))
  104.  
  105.   (set #WannCDRomMountenHelp
  106.   (cat "Hier können Sie sich entscheiden, ob das CD-ROM Laufwerk während des "
  107.        "Bootvorgangs oder später manuell ( mit Hilfe des >Mount< - Befehls "
  108.        "oder durch Doppelklicken des entsprechenden Icons in dem Verzeichnis "
  109.        ">storage/dosdrivers<) eingebunden werden soll."
  110.   ))
  111.   (set #JukeBoxInstallieren
  112.   (cat "Soll die Demoversion der JukeBox installiert werden ? "
  113.   ))
  114.   (set #JukeBoxInstallierenHelp
  115.   (cat "Hiermit können Sie die beigelegt Demoversion der JukeBox (Audio-Player) "
  116.        "in Ihr System übernehmen. Wenn Sie die JukeBox nicht haben möchten, so "
  117.        "können Sie diesen Teil der Installation mit >NEIN< überspringen."
  118.   ))
  119.   (set #JukeBoxBsy
  120.   (cat "Die JukeBox wird entpackt. "
  121.        "\nBitte warten Sie einen Moment !"
  122.   ))
  123.   (set #JukeBoxError
  124.   (cat "Beim Entpacken der JukeBox ist ein Fehler aufge-\n"
  125.        "treten ! Die entpackten Daten können fehlerhaft sein."
  126.   ))
  127. ))
  128.  
  129. ;----------------------------------------------------------------------------
  130. ; Englische Texte
  131.  
  132. (if (= @language "english")
  133. (
  134. ;  (set default_lang 2)
  135.  
  136.   (set #Ja   (cat "YES"   ))
  137.   (set #Nein (cat "NO" ))
  138.  
  139.   (set #Automatisch   (cat "automatic" ))
  140.   (set #Manuell       (cat "manual"     ))
  141.  
  142.   (set #Einleitung
  143.   (cat "\n\nWith the following steps you can install the Speedup-System."
  144.   ))
  145.  
  146.   (set #SpeedupSystemInstallieren
  147.   (cat "Would you like to install the Speedup-System ? "
  148.   ))
  149.  
  150.   (set #SpeedupSystemInstallierenHelp
  151.   (cat "With this step you can integrate the Speedup-System into your "
  152.        "existing system. This will enable you to access all devices "
  153.        "which are connected to the MultiDrive.\n\n"
  154.        " Attention: If the MultiDrive isn `t installed, the\n"
  155.        "            Speedup-System will run only as a\n"
  156.        "            demonstration and will complete the work\n"
  157.        "            in approximately 5-10 minutes.\n\n"
  158.        " If you choose >NO< the Speedup-System will not be installed."
  159.   ))
  160.  
  161.   (set #SpeedupVersion
  162.   (cat "Which Speedup driver do you like to install ?"
  163.   ))
  164.  
  165.   (set #SpeedupVersionHelp
  166.   (cat "It is important to choose the correct manufacturer, because the "
  167.        "interface differ slightly.\n"
  168.   ))
  169.  
  170.   (set #SpeedupVersion1 (cat "Mitsumi"))
  171.   (set #SpeedupVersion2 (cat "Universal"))
  172.  
  173.   (set #FilesystemInstallieren
  174.   (cat "Would you like to use the filesystem which is included ?"
  175.   ))
  176.  
  177.   (set #FilesystemInstallierenHelp
  178.   (cat "If you would like to use the included filesystem, please choose "
  179.        ">YES<. If you would like to use another filesystem instead (e.g. "
  180.        "Xetec CDx), please choose >NO<."
  181.   ))
  182.  
  183.   (set #WhichUnits
  184.   (cat "At this point, please choose the unit-numbers, which correspond "
  185.        "to the CD-ROM drivers."
  186.   ))
  187.  
  188.   (set #WhichUnitsHelp
  189.   (cat "The unit numbers are assigned acccording to the following system :\n\n"
  190.        
  191.        "Master at the first AT/IDE - Connector  := Unit 0 \n"
  192.        "Slave at the first AT/IDE - Connector   := Unit 1 \n"
  193.        "Master at the second AT/IDE - Connector := Unit 2 \n"
  194.        "Slave at the second AT/IDE - Connector  := Unit 3 \n"
  195.        "\nIf a unit is not used, then it will be bypassed."
  196.   ))
  197.  
  198.   (set #Unit0 (cat "Unit 0"))
  199.   (set #Unit1 (cat "Unit 1"))
  200.   (set #Unit2 (cat "Unit 2"))
  201.   (set #Unit3 (cat "Unit 3"))
  202.  
  203.   (set #ErfrageVolumeName0
  204.   (cat "Under what name would you like to mount the CD-ROM drive at the Unit 0 ?"
  205.   ))
  206.   (set #ErfrageVolumeName1
  207.   (cat "Under what name would you like to mount the CD-ROM drive at the Unit 1 ?"
  208.   ))
  209.   (set #ErfrageVolumeName2
  210.   (cat "Under what name would you like to mount the CD-ROM drive at the Unit 2 ?"
  211.   ))
  212.   (set #ErfrageVolumeName3
  213.   (cat "Under what name would you like to mount the CD-ROM drive at the Unit 3 ?"
  214.   ))
  215.  
  216.   (set #ErfrageVolumeNameHelp
  217.   (cat "The AmigaDOS assigns names to drivers (e.g. DF0 etc.). You may "
  218.        "choose the names which are assigned to the CD-ROM drivers by the "
  219.        "AmigaDOS; However, please note, that symbols such as >:< and >/< "
  220.        "can not be used. "
  221.        "To ensure that no problems occur following installation, please "
  222.        "make sure that the name you choose begins with >CD<."
  223.   ))
  224.  
  225.   (set #WannCDRomMounten
  226.   (cat "Would you like your CD-ROM drive to be mounted automatically or "
  227.        "later manually ?"
  228.   ))
  229.  
  230.   (set #WannCDRomMountenHelp
  231.   (cat "Please choose whether you would like the CD-ROM drive to be mounted "
  232.        "during the booting process or afterwards manually (With the help of "
  233.        "the >mount< command or through double-clicking of the corresponding "
  234.        "icon in the directory >storage/dosdrivers<) ."
  235.   ))
  236.   (set #JukeBoxInstallieren
  237.   (cat "Would you like to install a demo-version of the JukeBox-Audioplayer ?"
  238.   ))
  239.   (set #JukeBoxInstallierenHelp
  240.   (cat "With this step, you can decide, whether the JukeBox-Audioplayer will be"
  241.        " installed or not."
  242.   ))
  243.   (set #JukeBoxBsy
  244.   (cat "JukeBox is being unpacked. "
  245.        "\nWait a moment, please."
  246.   ))
  247.   (set #JukeBoxError
  248.   (cat "An error has occured during the unpacking of the JukeBox ! "
  249.        "The unpacked data could contain errors."
  250.   ))
  251. ))
  252.  
  253. (complete 0)
  254.  
  255. ; soll das Speedup-System eingebunden werden ?
  256.  
  257. (if (askbool (prompt  #SpeedupSystemInstallieren)
  258.              (help    #SpeedupSystemInstallierenHelp)
  259.              (choices #Ja #Nein)
  260.              (default 1)
  261.   )
  262.   (
  263.     ; zunächst wird die momentane Startup-sequence unbenannt und eine
  264.     ; neue Startup-sequence erzeugt, die die alte aufruft, damit der
  265.     ; Speedup-Eintrag der Erste ausgeführte Befehl ist.
  266.  
  267.     ( protect "S:Startup-Sequence" "-e +rwsd" )
  268.  
  269.     (if (NOT(exists "S:Startup-Sequence.Speedup" ))
  270.     (
  271.       (rename "S:Startup-Sequence" "S:Startup-Sequence.Speedup")
  272.     )
  273.     (if (exists "S:startup-sequence.std")
  274.     (
  275.       (if (= (getsize "S:startup-sequence.std") 362)
  276.       (
  277.         (protect "S:Startup-Sequence.std" "-e +rwsd")
  278.         (delete "s:startup-sequence.std")
  279.         (rename "S:Startup-Sequence.speedup" "S:Startup-Sequence.std")
  280.         (rename "S:Startup-Sequence" "S:Startup-Sequence.speedup")
  281.       ))
  282.     ))
  283.     )
  284.  
  285.  
  286.     ; Startup-Sequence von der Installationsdiskette kopieren
  287.  
  288.     (copyfiles (source "SpeedupCD&HD:daten/startup-sequence")
  289.       (files)
  290.       (optional "force")
  291.       (dest     "s:")
  292.     )
  293.  
  294.     (complete 10)
  295.  
  296.     (copyfiles (source "SpeedupCD&HD:c/nospeedup")
  297.     (files)
  298.     (optional "force")
  299.         (dest     "c:")
  300.     )
  301.     (copyfiles (source "SpeedupCD&HD:c/GetCDRom")
  302.     (files)
  303.     (optional "force")
  304.         (dest     "c:")
  305.     )
  306.  
  307.     (complete 20)
  308.  
  309.     (copyfiles (source "SpeedupCD&HD:tools/CheckMultiDrive")
  310.     (files)
  311.     (optional "force")
  312.         (dest     "sys:tools")
  313.     )
  314.     (copyfiles (source "SpeedupCD&HD:tools/CheckMultiDrive.info")
  315.     (files)
  316.     (optional "force")
  317.         (dest     "sys:tools")
  318.     )
  319.  
  320.     (copyfiles (source "SpeedupCD&HD:daten/itools.library")
  321.     (files)
  322.     (optional "force")
  323.         (dest     "libs:")
  324.     )
  325.  
  326.     (complete 30)
  327.  
  328.     (copyfiles (source "SpeedupCD&HD:tools/HDToolBox")
  329.     (files)
  330.     (optional "force")
  331.         (dest     "sys:tools")
  332.     )
  333.     (copyfiles (source "SpeedupCD&HD:tools/HDToolBox.info")
  334.     (files)
  335.     (optional "force")
  336.         (dest     "sys:tools")
  337.     )
  338.  
  339.     (complete 40)
  340.  
  341.     ; Der Treiber muß auch noch kopiert werden !!!
  342.  
  343.     (set SpVersion
  344.     (askchoice (prompt #SpeedupVersion)
  345.     (help    #SpeedupVersionHelp)
  346.     (choices #SpeedupVersion1 #SpeedupVersion2 )
  347.     (default 0)
  348.     ))
  349.  
  350.     (if (= SpVersion 0)
  351.     (
  352.       (copyfiles (source "SpeedupCD&HD:c/speedup-Mitsumi")
  353.       (files)
  354.       (optional "force")
  355.       (dest     "c:")
  356.           (newname  "speedup")
  357.       )
  358.     ))
  359.     (if (= SpVersion 1)
  360.     (
  361.       (copyfiles (source "SpeedupCD&HD:c/speedup-Universal")
  362.      (files)
  363.      (optional "force")
  364.      (dest     "c:")
  365.           (newname  "speedup")
  366.       )
  367.     ))
  368.   )
  369. )
  370.  
  371. ; Speedup ist ggfs. installiert, jetzt müssen die FileSysteme für die
  372. ; CD-Rom LW eingebunden werden.
  373.  
  374. (complete 50)
  375.  
  376. (if (askbool (prompt #FilesystemInstallieren)
  377.    (help    #FilesystemInstallierenHelp)
  378.    (choices #Ja #Nein)
  379.    (default 1)
  380.    )
  381.    (
  382.    ; Filesytem kopieren
  383.    (copyfiles (source   "SpeedupCD&HD:l/cdrom-Handler")
  384.       (files)
  385.       (optional "force")
  386.       (dest     "l:")
  387.    )
  388.    ; Nach den Units fragen
  389.  
  390.    (set #unit (run"c:GetCDRom"(safe)))
  391.    (set unit
  392.    (askoptions (prompt #WhichUnits)
  393.       (help    #WhichUnitsHelp)
  394.       (choices #Unit0 #Unit1 #Unit2 #Unit3)
  395.       (default #unit)
  396.    ))
  397.    (if (in unit 0)
  398.    (
  399.       ; Den Namen des AmigaDOS-Devices erfragen...
  400.       (set volumename (askstring (prompt  #ErfrageVolumeName0)
  401.             (default "CD0")
  402.                 (help    #ErfrageVolumeNameHelp)
  403.       ))
  404.  
  405.       ; Wann soll das CD-Rom Laufwerk gemountet werden ?
  406.  
  407.       (if (askbool (prompt  #WannCDRomMounten)
  408.                    (help    #WannCDRomMountenHelp)
  409.                    (choices #Automatisch #Manuell)
  410.                    (default 1)
  411.       )
  412.       ; Automatisch mounten
  413.  
  414.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  415.       (
  416.         (textfile (dest "devs:Mountlist.Speedup")
  417.               (append "\n" volumename ":\n")
  418.               (include "SpeedupCD&HD:Devs/CD0")
  419.         )
  420.         (STARTUP "CD-ROM Laufwerk mounten"
  421.            (prompt  "Modifiziere Startup !")
  422.            (help    "Modifiziere Startup !")
  423.            (command "mount " volumename ": FROM Devs:Mountlist.Speedup\n")
  424.         )
  425.       )
  426.                 (
  427.         (copyfiles (source   "SpeedupCD&HD:Devs/CD0.info")
  428.                          (files)
  429.                          (optional "force")
  430.                          (dest     "devs:DosDrivers")
  431.                          (newname  (cat volumename ".info"))
  432.         )
  433.         (copyfiles (source   "SpeedupCD&HD:Devs/CD0")
  434.                          (files)
  435.                          (optional "force")
  436.                          (dest     "devs:DosDrivers")
  437.                          (newname  volumename)
  438.         )
  439.       ))
  440.  
  441.       ; Manuell mounten
  442.  
  443.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  444.       (
  445.         (textfile (dest    "devs:mountlist.Speedup")
  446.                       (append  "\n" volumename ":\n")
  447.                       (include "SpeedupCD&HD:Devs/CD0")
  448.         )
  449.       )
  450.       (
  451.         (copyfiles (source   "SpeedupCD&HD:Devs/CD0.info")
  452.                          (files)
  453.                          (optional "force")
  454.                          (dest     "sys:storage/DosDrivers")
  455.                          (newname  (cat volumename ".info"))
  456.         )
  457.         (copyfiles (source   "SpeedupCD&HD:Devs/CD0")
  458.                          (files)
  459.                          (optional "force")
  460.                          (dest     "sys:storage/DosDrivers")
  461.                          (newname  volumename)
  462.         )
  463.       ))
  464.       )
  465.    ))
  466.         (complete 60)
  467.    (if (in unit 1)
  468.    (
  469.       ; Den Namen des AmigaDOS-Devices erfragen...
  470.       (set volumename (askstring (prompt  #ErfrageVolumeName1)
  471.             (default "CD1")
  472.                 (help    #ErfrageVolumeNameHelp)
  473.       ))
  474.  
  475.       ; Wann soll das CD-Rom Laufwerk gemountet werden ?
  476.  
  477.       (if (askbool (prompt  #WannCDRomMounten)
  478.                    (help    #WannCDRomMountenHelp)
  479.                    (choices #Automatisch #Manuell)
  480.                    (default 1)
  481.       )
  482.       ; Automatisch mounten
  483.  
  484.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  485.       (
  486.         (textfile (dest "devs:Mountlist.Speedup")
  487.               (append "\n" volumename ":\n")
  488.               (include "SpeedupCD&HD:Devs/CD1")
  489.         )
  490.         (STARTUP "CD-ROM Laufwerk mounten"
  491.            (prompt  "Modifiziere Startup !")
  492.            (help    "Modifiziere Startup !")
  493.            (command "mount " volumename ": FROM Devs:Mountlist.Speedup\n")
  494.         )
  495.       )
  496.                 (
  497.         (copyfiles (source   "SpeedupCD&HD:Devs/CD1.info")
  498.                          (files)
  499.                          (optional "force")
  500.                          (dest     "devs:DosDrivers")
  501.                          (newname  (cat volumename ".info"))
  502.         )
  503.         (copyfiles (source   "SpeedupCD&HD:Devs/CD1")
  504.                          (files)
  505.                          (optional "force")
  506.                          (dest     "devs:DosDrivers")
  507.                          (newname  volumename)
  508.         )
  509.       ))
  510.  
  511.       ; Manuell mounten
  512.  
  513.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  514.       (
  515.         (textfile (dest    "devs:mountlist.Speedup")
  516.                       (append  "\n" volumename ":\n")
  517.                       (include "SpeedupCD&HD:Devs/CD1")
  518.         )
  519.       )
  520.       (
  521.         (copyfiles (source   "SpeedupCD&HD:Devs/CD1.info")
  522.                          (files)
  523.                          (optional "force")
  524.                          (dest     "sys:storage/DosDrivers")
  525.                          (newname  (cat volumename ".info"))
  526.         )
  527.         (copyfiles (source   "SpeedupCD&HD:Devs/CD1")
  528.                          (files)
  529.                          (optional "force")
  530.                          (dest     "sys:storage/DosDrivers")
  531.                          (newname  volumename)
  532.         )
  533.       ))
  534.       )
  535.    ))
  536.         (complete 70)
  537.    (if (in unit 2)
  538.    (
  539.       ; Den Namen des AmigaDOS-Devices erfragen...
  540.       (set volumename (askstring (prompt  #ErfrageVolumeName2)
  541.             (default "CD2")
  542.                 (help    #ErfrageVolumeNameHelp)
  543.       ))
  544.  
  545.       ; Wann soll das CD-Rom Laufwerk gemountet werden ?
  546.  
  547.       (if (askbool (prompt  #WannCDRomMounten)
  548.                    (help    #WannCDRomMountenHelp)
  549.                    (choices #Automatisch #Manuell)
  550.                    (default 1)
  551.       )
  552.       ; Automatisch mounten
  553.  
  554.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  555.       (
  556.         (textfile (dest "devs:Mountlist.Speedup")
  557.               (append "\n" volumename ":\n")
  558.               (include "SpeedupCD&HD:Devs/CD2")
  559.         )
  560.         (STARTUP "CD-ROM Laufwerk mounten"
  561.            (prompt  "Modifiziere Startup !")
  562.            (help    "Modifiziere Startup !")
  563.            (command "mount " volumename ": FROM Devs:Mountlist.Speedup\n")
  564.         )
  565.       )
  566.                 (
  567.         (copyfiles (source   "SpeedupCD&HD:Devs/CD2.info")
  568.                          (files)
  569.                          (optional "force")
  570.                          (dest     "devs:DosDrivers")
  571.                          (newname  (cat volumename ".info"))
  572.         )
  573.         (copyfiles (source   "SpeedupCD&HD:Devs/CD2")
  574.                          (files)
  575.                          (optional "force")
  576.                          (dest     "devs:DosDrivers")
  577.                          (newname  volumename)
  578.         )
  579.       ))
  580.  
  581.       ; Manuell mounten
  582.  
  583.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  584.       (
  585.         (textfile (dest    "devs:mountlist.Speedup")
  586.                       (append  "\n" volumename ":\n")
  587.                       (include "SpeedupCD&HD:Devs/CD2")
  588.         )
  589.       )
  590.       (
  591.         (copyfiles (source   "SpeedupCD&HD:Devs/CD2.info")
  592.                          (files)
  593.                          (optional "force")
  594.                          (dest     "sys:storage/DosDrivers")
  595.                          (newname  (cat volumename ".info"))
  596.         )
  597.         (copyfiles (source   "SpeedupCD&HD:Devs/CD2")
  598.                          (files)
  599.                          (optional "force")
  600.                          (dest     "sys:storage/DosDrivers")
  601.                          (newname  volumename)
  602.         )
  603.       ))
  604.       )
  605.    ))
  606.         (complete 80)
  607.    (if (in unit 3)
  608.    (
  609.       ; Den Namen des AmigaDOS-Devices erfragen...
  610.       (set volumename (askstring (prompt  #ErfrageVolumeName3)
  611.             (default "CD3")
  612.                 (help    #ErfrageVolumeNameHelp)
  613.       ))
  614.  
  615.       ; Wann soll das CD-Rom Laufwerk gemountet werden ?
  616.  
  617.       (if (askbool (prompt  #WannCDRomMounten)
  618.                    (help    #WannCDRomMountenHelp)
  619.                    (choices #Automatisch #Manuell)
  620.                    (default 1)
  621.       )
  622.       ; Automatisch mounten
  623.  
  624.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  625.       (
  626.         (textfile (dest "devs:Mountlist.Speedup")
  627.               (append "\n" volumename ":\n")
  628.               (include "SpeedupCD&HD:Devs/CD3")
  629.         )
  630.         (STARTUP "CD-ROM Laufwerk mounten"
  631.            (prompt  "Modifiziere Startup !")
  632.            (help    "Modifiziere Startup !")
  633.            (command "mount " volumename ": FROM Devs:Mountlist.Speedup\n")
  634.         )
  635.       )
  636.                 (
  637.         (copyfiles (source   "SpeedupCD&HD:Devs/CD3.info")
  638.                          (files)
  639.                          (optional "force")
  640.                          (dest     "devs:DosDrivers")
  641.                          (newname  (cat volumename ".info"))
  642.         )
  643.         (copyfiles (source   "SpeedupCD&HD:Devs/CD3")
  644.                          (files)
  645.                          (optional "force")
  646.                          (dest     "devs:DosDrivers")
  647.                          (newname  volumename)
  648.         )
  649.       ))
  650.  
  651.       ; Manuell mounten
  652.  
  653.       (if (< (/ (getversion "Libs:version.library") 65536) 38)
  654.       (
  655.         (textfile (dest    "devs:mountlist.Speedup")
  656.                       (append  "\n" volumename ":\n")
  657.                       (include "SpeedupCD&HD:Devs/CD3")
  658.         )
  659.       )
  660.       (
  661.         (copyfiles (source   "SpeedupCD&HD:Devs/CD3.info")
  662.                          (files)
  663.                          (optional "force")
  664.                          (dest     "sys:storage/DosDrivers")
  665.                          (newname  (cat volumename ".info"))
  666.         )
  667.         (copyfiles (source   "SpeedupCD&HD:Devs/CD3")
  668.                          (files)
  669.                          (optional "force")
  670.                          (dest     "sys:storage/DosDrivers")
  671.                          (newname  volumename)
  672.         )
  673.       )
  674.       )
  675.       )
  676.    ))
  677.   )
  678. )
  679.  
  680. (complete 90)
  681.  
  682. (if (askbool (prompt #JukeBoxInstallieren)
  683.    (help    #JukeBoxInstallierenHelp)
  684.    (choices #Ja #Nein)
  685.    (default 1)
  686.     )
  687.     (
  688.    (set target
  689.    (askdir (prompt  #WelchePartition )
  690.                 (help    #WelchePartitionHelp )
  691.                 (default (tackon @default-dest "JukeBox"))
  692.         ))
  693.         (if (exists target)
  694.         (
  695.             (makedir target (infos))
  696.             (makeassign "JukeBox" target)
  697.             (working #JukeBoxBsy)
  698.  
  699.             (if (run "SpeedupCD&HD:c/lha x SpeedupCD&HD:daten/JukeBox2.0.lha JukeBox:")
  700.             (
  701.               (message #JukeBoxError)
  702.             ))
  703.        (makeassign "JukeBox")
  704.    ))
  705.    )
  706. )
  707.  
  708. (complete 100)
  709.  
  710.